home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok18.lha / Profile / Demos / Prim1.mod < prev    next >
Text File  |  1993-08-15  |  275b  |  21 lines
  1. MODULE Prim1;
  2.  
  3. FROM InOut IMPORT WriteInt;
  4.  
  5. CONST n = 1000;
  6.  
  7. VAR i,k: INTEGER;
  8.     prim: BOOLEAN;
  9.  
  10. BEGIN
  11.   FOR i:=2 TO n DO
  12.     prim := TRUE;
  13.     FOR k:=2 TO i-1 DO
  14.       IF i MOD k = 0 THEN prim := FALSE END;
  15.     END;
  16.     IF prim THEN WriteInt(i,4) END;
  17.   END;
  18. END Prim1.
  19.  
  20.  
  21.